home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 0006.ZIP / COTITL.ASM < prev    next >
Assembly Source File  |  1983-06-16  |  1KB  |  63 lines
  1.     TITLE    COTITL    - Diskette Contents List - Get Title
  2.     SUBTTL    Version    1.0 - June 1983
  3.     PAGE    81,132
  4. ;
  5. CODE    SEGMENT    PARA PUBLIC 'CODE'
  6.     ASSUME    CS:CODE,DS:CODE
  7. ;
  8.     PUBLIC    TITLX,FREE
  9. TPRMT    DB    13,10,'Enter Title: $'
  10. TBUF    DB    40,0            ;Input buffer for user title
  11.     DB    40 DUP (?)
  12. TITLX    DB    13 DUP (' ')        ;Title line
  13. TIL1    DB    42 DUP (' ')
  14.     DB    'Free: '
  15. FREE    DB    9 DUP (' ')        ;Formatted free    space in title line
  16. MONTH    DB    '  /'            ;Date fields in    title line
  17. DAY    DB    '  /'
  18. YEAR    DB    '  ',0            ;End of    title
  19. ;
  20.     PUBLIC    GETTTL
  21. GETTTL    PROC    NEAR
  22.     MOV    DI,OFFSET TITLX
  23.     MOV    CX,55
  24.     MOV    AL,' '
  25.     REP    STOSB            ;Clear title line
  26.     MOV    DX,OFFSET TPRMT
  27.     MOV    AH,9
  28.     INT    21H            ;Prompt    for title
  29.     MOV    DX,OFFSET TBUF
  30.     MOV    AH,0AH
  31.     INT    21H            ;Get user title
  32.     MOV    CL,TBUF+1        ;Load length
  33.     XOR    CH,CH
  34.     MOV    SI,OFFSET TBUF+2
  35.     MOV    DI,OFFSET TIL1
  36.     REP    MOVSB            ;Move user title to title line
  37.     MOV    AH,2AH
  38.     INT    21H            ;Get date
  39.     SUB    CX,1900            ;Convert to two    digit year
  40.     MOV    DI,OFFSET YEAR
  41.     MOV    AL,CL
  42.     CALL    DECMAL            ;Fill in month/day/year
  43.     MOV    DI,OFFSET MONTH
  44.     MOV    AL,DH            ;  for title line
  45.     CALL    DECMAL
  46.     MOV    DI,OFFSET DAY
  47.     MOV    AL,DL
  48.     CALL    DECMAL
  49.     RET
  50. GETTTL    ENDP
  51. ;
  52. DECMAL    PROC    NEAR            ;Converts AL to    two decimal
  53.     AAM                ;  digits and stores at    SI
  54.     OR    AX,'00'
  55.     XCHG    AL,AH
  56.     STOSW                ;Save in image
  57.     RET
  58. DECMAL    ENDP
  59. ;
  60. CODE    ENDS
  61. ;
  62.     END
  63.